home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / prog / dnalib59.arj / TYPWRITE.BAS < prev    next >
BASIC Source File  |  1993-10-27  |  348b  |  19 lines
  1. DECLARE SUB CalcByte(Attr%,LowByte%,HiByte%)
  2. DECLARE SUB Noise(Which%)
  3. SUB TypWrite(Text$,Row%,Col%,Attr%) PUBLIC
  4.  
  5. CalcByte Attr%,FGround%,BGround%
  6.  
  7. FOR i% = 1 TO LEN(Text$)
  8.   a$ = LEFT$(Text$,i%)
  9.   b$ = RIGHT$(a$,1)
  10.   LOCATE Row%,Col%,0
  11.   PRINT b$;
  12.   IF b$ <> " " THEN
  13.     NOISE 4
  14.   END IF
  15.   INCR Col%
  16.   DELAY .1
  17. NEXT i%
  18.  
  19. END SUB